home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Resource Library: Multimedia
/
Resource Library: Multimedia.iso
/
hypercrd
/
xcmds
/
shwdlg16.hqx
/
ShowDialog XCMD 1.6
/
stack.txt
< prev
Wrap
Text File
|
1989-05-10
|
8KB
|
228 lines
-- stack: in.6
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 3411
-- card count: 25
-- first card id: 12118
-- list block id: 7967
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 180448 bytes
-- stack block size: 7168 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
--ShowDialog XCMD 1.6 demo stack, May 10,1989
--The XCMDs and XFCNs in this stack are
--©Copyright 1988,1989 by Jay Hodgdon
-- Ignatz Software
-- 587 Cutwater Lane
-- Foster City, CA 94404
--
-- AppleLink: D2792
-- CIS: 70411,63
-- GEnie: JHODGDON
-- MacNet: HODGDONJ
on openstack
hide msg
if the version < 1.2 then
ShowDialog 1,3756,"This stack requires at least HyperCard 1.2.1 to work! (So upgrade!)",TRUE
go home
exit openStack
end if
if (item 2 of the loc of cd window) - (item 2 of the screenRect) < 20
then hide menubar
set userlevel to 5
pass openstack
end openstack
on doMenu what
if what is "Help" then doHelp
else pass doMenu
end doMenu
on left
visual scroll right
go prev cd
end left
on right
visual scroll left
go next cd
end right
on arrowKey what
if what is "left" then
left
else if what is "right" then
right
end if
end arrowKey
on printIt
put bg fld 3 & return & bg fld 1 & return & bg fld 2 & return & bg fld 4 into container
put bg fld "Title" into prompt
PrintDoc prompt,container,prompt,times,12
end printIt
on doHelp
global theItem
if theItem is empty then put 1 into theItem
put "About ShowDialog" & return & "Alert Types" & return & "cicn's" & return & "Color Icon Bars" & return & "Commercial Use" & return & "Debugging ShowDialog" & return & "Dialog Types" & return & "Making a DLOG/DITL Template (a step-by-step guide)" & return & "Making PICT's" & return & "Obtaining ResEdit" & return & "Other X-Commands:" & return & "    Ants XFCN" & return & "    ClipToPICT XFCN" & return & "    ColorOn XFCN" & return & "    CreditsDialog XCMD" & return & "    TextDialog XCMD" & return & "    PrintDoc XCMD" & return & "    SplashDialog XCMD" & return & "PICT Maker" & return & "Registration" & return & "ResEdit" & return & "Shareware" & return & "ShowDialog Types:" & return & "    Type 1 (simple Dialogs and Alerts)" & return & "    Type 2 (Editable text fields & Check boxes)" & return & "    Type 3 (Editable text fields & Radio buttons)" & return & "    Type 4 (Editable text fields & Popup menu)" & return & "    Type 5 (Help screens and " & the NumToChar of 34 & "PICT" & the NumToChar of 34 & " dialogs)" & return & "    Type 6 (Help screens that cycle)" & return & "    Type 7 (Scrolling List)" & return & "Special Dialogs" & return & "Splash Screens" & return & "Window Types" & return into container
ShowDialog 1,5001,"",TRUE,80,100
if the result = 2 then exit doHelp
put " Help Topics" into prompt
ShowDialog 7,5002,prompt,geneva,9,container,theItem,"one"
if line 1 of the result = 2 then exit doHelp
put line 2 of the result into theResult
put theResult into theItem
if theResult = 1 then
go cd "What is ShowDialog"
else if theResult = 2 then
go cd "Alert Types"
else if theResult = 3 then
go cd "Color Icon Bars"
send mouseUp to bg btn ID 10
find "cicn"
else if theResult = 4 then
go cd "Color Icon Bars"
send mouseUp to bg btn ID 11
else if theResult = 5 then
go cd "Shareware"
send mouseUp to cd btn ID 5
else if theResult = 6 then
go cd "Trouble Shooting"
else if theResult = 7 then
go cd "Dialog Types"
else if theResult = 8 then
go cd "Resedit"
hide cd pict
show bg fld ID 17
find string "Using ResEdit to make ShowDialog Dialogs"
else if theResult = 9 then
go cd "PICT Maker Menu"
send mouseUp to cd btn ID 1
else if theResult = 10 then
go cd "ResEdit"
send mouseUp to cd btn ID 4
else if theResult = 11 then
go cd "Auxiliary X-Commands"
else if theResult = 12 then
go cd "Auxiliary X-Commands"
send mouseUp to cd btn "Ants XFCN"
else if theResult = 13 then
go cd "Auxiliary X-Commands"
send mouseUp to cd btn "ClipToPICT XFCN"
else if theResult = 14 then
go cd "Auxiliary X-Commands"
send mouseUp to cd btn "ColorOn XFCN"
else if theResult = 15 then
go cd "More Aux"
send mouseUp to cd btn "CreditsDialog XCMD"
else if theResult = 16 then
go cd "More Aux"
send mouseUp to cd btn "TextDialog XCMD"
else if theResult = 17 then
go cd "Auxiliary X-Commands"
send mouseUp to cd btn "PrintDoc XCMD"
else if theResult = 18 then
go cd "More Aux"
send mouseUp to cd btn "SplashDialog XCMD"
else if theResult = 19 then
go cd "PICT Maker Menu"
else if theResult = 20 then
go cd "Shareware"
send mouseUp to cd btn ID 3
else if theResult = 21 then
go cd "ResEdit"
else if theResult = 22 then
go cd "Shareware"
else if theResult = 23 then
go cd "XCMD Types Menu"
else if theResult = 24 then
go cd "Type 1 XCMD"
send mouseUp to bg btn ID 11
else if theResult = 25 then
go cd "Type 2 XCMD"
send mouseUp to bg btn ID 11
else if theResult = 26 then
go cd "Type 3 XCMD"
send mouseUp to bg btn ID 11
else if theResult = 27 then
go cd "Type 4 XCMD"
send mouseUp to bg btn ID 11
else if theResult = 28 then
go cd "Type 5 XCMD"
send mouseUp to bg btn ID 11
else if theResult = 29 then
go cd "Type 6 XCMD"
send mouseUp to bg btn ID 11
else if theResult = 30 then
go cd "Type 7 XCMD"
send mouseUp to bg btn ID 11
else if theResult = 31 then
go cd "Special Dialogs"
send mouseUp to bg btn ID 11
else if theResult = 32 then
go cd "Special Dialogs"
send mouseUp to bg btn ID 11
find "Splash Screens"
else if theResult = 33 then
go cd "Window Types"
end if
end doHelp